program division
  var
    a,b:int
begin
  a := 4
  b := 2
  Write(in "div: " in a/b)
  Write(in "mod: " in a%b)
  Read()
end